home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0159 / delphi.zip / UNIT1.PAS < prev   
Pascal/Delphi Source File  |  1996-01-13  |  843b  |  46 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, VBXCtrl, Select25, StdCtrls, Menus;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Label1: TLabel;
  12.     Selector1: TSelector;
  13.     Selector2: TSelector;
  14.     MainMenu1: TMainMenu;
  15.     File1: TMenuItem;
  16.     Exit1: TMenuItem;
  17.     procedure Selector2Change(Sender: TObject);
  18.     procedure Exit1Click(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   Form1: TForm1;
  27.  
  28.   implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TForm1.Selector2Change(Sender: TObject);
  33. begin
  34.  
  35.      Selector2.SelectionID := Selector2.Value;
  36.      Selector2.CaptionFontID := Selector2.SelectionFontID;
  37.  
  38. end;
  39.  
  40. procedure TForm1.Exit1Click(Sender: TObject);
  41. begin
  42.     Halt;
  43. end;
  44.  
  45. end.
  46.